home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 99 / 099.d81 / bits 99 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  48 lines
  1. 10 poke56,56:clr:dv=peek(186):ifdv<8thendv=8
  2. 20 poke53280,0:poke53281,0:print"[147][154]"
  3. 97 :
  4. 98 :rem load font and point to it
  5. 99 :
  6. 100 sys57812"psb font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 110 poke53272,31
  8. 117 :
  9. 118 :rem load bg
  10. 119 :
  11. 120 sys57812"bg",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  12. 130 sys49152:rem enable bg
  13. 140 sys49155:rem fill screen with 255
  14. 150 y=12:x=32
  15. 197 :
  16. 198 :rem menu
  17. 199 :
  18. 200 print"[158]"tab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  19. 210 [129]i[178]0[164]17:[153][163]7)"(NULL)                        (NULL)":[130]
  20. 220 [153][163]7)"/tantantantantantantantantantantantantantantantantantantantantantantantanexp"
  21. 230 [151]214,3:[153]:[153][163]14)"forpeek chr$   str$ val (NULL) (NULL)"
  22. 240 [153][163]9)"len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)open - slow/
  23. 250 printtab(10)"speed up effect"
  24. 260 printtab(11)"[208][197][197][203](49158) =[155]    [157][157][157][157]"peek(49158)
  25. 270 printtab(9)"[195][210][211][210] [210][201][199][200][212]/[204][197][198][212] -
  26. 280 [153][163]10)"openslow/speed up how
  27. 290 printtab(10)"often effect happens
  28. 300 [153][163]11)"(NULL)valval(NULL)(49160) =list    cmdcmdcmdcmd"[194](49160)
  29. 310 [153][163]9)"(NULL) open- (NULL)uit
  30. 320 printtab(9)"[154][204]ower number = faster
  31. 400 [161]a$:[139]a$[178]""[167]400
  32. 410 [139]a$[178]"q"[167]500
  33. 420 [139]a$[178]"on"[167]y[178](y[170]1)[175]255:[151]49158,y:[137]230
  34. 430 [139]a$[178]""[167]y[178](y[171]1)[175]255:[151]49158,y:[137]230
  35. 440 [139]a$[178]""[167]x[178](x[170]1)[175]255:[151]49160,x:[137]230
  36. 450 [139]a$[178]"cmd"[167]x[178](x[171]1)[175]255:[151]49160,x:[137]230
  37. 460 [137]400
  38. 497 :
  39. 498 :[143] quit to loadstar
  40. 499 :
  41. 500 [158]49152:[151]53272,21:[153]"load"
  42. 510 [159]15,dv,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  43. 520 [139]er[179][177]63[167][128]
  44. 530 [153]"loadstopload"[199](34)"hello connect"[199](34)","dv
  45. 540 [153]"run"
  46. 550 [151]631,13:[151]632,13:[151]198,2:[128]
  47. 10000 [159]15,8,15,"s0:bits 99":[160]15:[148]"bits 99",8:[128]
  48.